home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / tests / string.test < prev    next >
Encoding:
Text File  |  1995-06-29  |  3.3 KB  |  162 lines
  1.  
  2. #
  3. # test the String <-> XmString converters
  4. #
  5.  
  6. if {[string compare test [info procs test]] == 1} then \
  7.   {source defs}
  8.  
  9. # set VERBOSE 1
  10. # set INTERACTIVE 1
  11.  
  12.  
  13. #############
  14. # starts here
  15. #############
  16.  
  17. xtAppInitialize -class List
  18. . setValues -allowShellResize true
  19.  
  20. xmRowColumn .stringrc managed
  21. xmLabel .stringrc.label -managed
  22. xmList .stringrc.list managed
  23.  
  24. test string-1.1 {empty string} {
  25.     .stringrc.label setValues -labelString ""
  26.     .stringrc.label getValues -labelString x
  27.     set x
  28. } {}
  29.  
  30.  
  31. test string-1.2 {simple string} {
  32.     .stringrc.label setValues -labelString "simple label"
  33.     .stringrc.label getValues -labelString x
  34.     set x
  35. } {simple label}
  36.  
  37. test string-1.3 {string with spaces} {
  38.     .stringrc.label setValues -labelString "simple label   with extra      spaces"
  39.     .stringrc.label getValues -labelString x
  40.     set x
  41. } {simple label with extra spaces}
  42.  
  43. test string-1.4 {string with newlines} {
  44.     .stringrc.label setValues -labelString "simple label
  45. with
  46.  
  47. newlines"
  48.     .stringrc.label getValues -labelString x
  49.     set x
  50. } {simple label with newlines}
  51.  
  52. test string-1.5 {string with end spaces} {
  53.     .stringrc.label setValues -labelString "  simple label with leading/trailing spaces  "
  54.     .stringrc.label getValues -labelString x
  55.     set x
  56. } {simple label with leading/trailing spaces}
  57.  
  58. test string-2.1 {embedded spaces} {
  59.     .stringrc.label setValues -labelString {{spaced     string}}
  60.     .stringrc.label getValues -labelString x
  61.     set x
  62. } {spaced     string}
  63.  
  64.  
  65. test string-2.2 {leading spaces} {
  66.     .stringrc.label setValues -labelString {{   leading spaced     string}}
  67.     .stringrc.label getValues -labelString x
  68.     set x
  69. } {   leading spaced     string}
  70.  
  71. test string-2.3 {trailing spaces} {
  72.     .stringrc.label setValues -labelString {{trailing spaced     string   }}
  73.     .stringrc.label getValues -labelString x
  74.     set x
  75. } {trailing spaced     string   }
  76.  
  77. test string-3.1 {newlines in string} {
  78.     .stringrc.label setValues -labelString {{newlined
  79. string}}
  80.     .stringrc.label getValues -labelString x
  81.     set x
  82. } {newlined
  83. string}
  84.  
  85. test string-3.2 {trailing newlines} {
  86.     .stringrc.label setValues -labelString {"trailing
  87. newlined
  88. string
  89.  
  90.  
  91. "}
  92.     .stringrc.label getValues -labelString x
  93.     set x
  94. } {trailing
  95. newlined
  96. string
  97.  
  98.  
  99. }
  100.  
  101. test string-3.3 {leading newlines} {
  102.     .stringrc.label setValues -labelString {"
  103.  
  104.  
  105. leading
  106. newlined
  107. string"}
  108.     .stringrc.label getValues -labelString x
  109.     set x
  110. } {
  111.  
  112.  
  113. leading
  114. newlined
  115. string}
  116.  
  117. test string-4.1 {embedded newlines} {
  118.     .stringrc.label setValues -labelString {newline @n in @n string}
  119.     .stringrc.label getValues -labelString x
  120.     set x
  121. } {newline
  122. in
  123. string}
  124.  
  125. test string-4.2 {trailing newlines} {
  126.     .stringrc.label setValues -labelString {newline after string @n @n}
  127.     .stringrc.label getValues -labelString x
  128.     set x
  129. } {newline after string
  130.  
  131. }
  132.  
  133. test string-4.3 {leading newlines} {
  134.     .stringrc.label setValues -labelString {@n @n newline before string}
  135.     .stringrc.label getValues -labelString x
  136.     set x
  137. } {
  138.  
  139. newline before string}
  140.  
  141.  
  142. test string-5.1 {list test} {
  143.     .stringrc.list setValues \
  144.     -itemCount 2 \
  145.     -items {{{ a     b }} {abcd}}
  146.     .stringrc.list getValues \
  147.     -items ll
  148.     set ll
  149. } {{ a     b } abcd}
  150.  
  151.  
  152. #############
  153. # Finish up #
  154. #############
  155. if { ! $INTERACTIVE} {
  156.   .stringrc.label destroyWidget
  157.   .stringrc.list destroyWidget
  158.   .stringrc destroyWidget
  159. } else {
  160.   . mainLoop
  161. }
  162.